MacTech 1 to 12

home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / develop™ Technical Journal / develop Issue 11 code / The NetWork Project.sea / The NetWork Project / Examples (Sources) / NetSim / task.master.impl.p < prev next >
MacBinary | 1992-07-15 | 3.9 KB | [TEXT/MPS ]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	ZX81 Sinclair BASIC `(image/sinclairBASIC)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Wed Jul 15 16:25:54 1992, modified Wed Jul 15 16:25:54 1992, creator 'MPS ', type ASCII, 3264 bytes "task.master.impl.p" , at 0xd40 495 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPS ]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 12 74 61 73 6b 2e 6d | 61 73 74 65 72 2e 69 6d |..task.m|aster.im|
|00000010| 70 6c 2e 70 00 00 00 00 | 00 00 00 00 00 00 00 00 |pl.p....|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 0c c0 00 | 00 01 ef a6 8a 3a 52 a6 |........|.....:R.|
|00000060| 8a 3a 52 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.:R.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 aa df 00 00 |........|........|
|00000080| 7b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |{-------|--------|
|00000090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000c0| 7d 0d 7b 09 4d 61 73 74 | 65 72 54 61 73 6b 48 61 |}.{.Mast|erTaskHa|
|000000d0| 6e 64 6c 65 72 09 7d 0d | 0d 7b a5 a5 a5 20 73 74 |ndler.}.|.{... st|
|000000e0| 69 6c 6c 20 74 6f 20 64 | 6f 20 a5 a5 a5 20 69 64 |ill to d|o ... id|
|000000f0| 65 61 3a 0d 0d 57 65 20 | 72 65 63 65 69 76 65 20 |ea:..We |receive |
|00000100| 6f 66 20 73 6d 61 6c 6c | 2c 20 66 69 78 65 64 20 |of small|, fixed |
|00000110| 68 65 61 64 65 72 20 73 | 69 7a 65 2c 20 61 6e 64 |header s|ize, and|
|00000120| 20 73 6f 6d 65 20 64 61 | 74 61 2e 20 57 65 20 77 | some da|ta. We w|
|00000130| 69 6c 6c 20 75 73 65 0d | 74 68 65 20 64 61 74 61 |ill use.|the data|
|00000140| 20 62 79 20 61 20 68 61 | 6e 64 6c 65 2e 20 7d 0d | by a ha|ndle. }.|
|00000150| 7b 20 a9 20 31 39 39 31 | 20 47 2e 20 53 61 77 69 |{ . 1991| G. Sawi|
|00000160| 74 7a 6b 69 2c 20 48 65 | 69 64 65 6c 62 65 72 67 |tzki, He|idelberg|
|00000170| 7d 0d 0d 74 79 70 65 0d | 09 74 4d 61 73 74 65 72 |}..type.|.tMaster|
|00000180| 54 61 73 6b 48 61 6e 64 | 6c 65 72 3d 6f 62 6a 65 |TaskHand|ler=obje|
|00000190| 63 74 28 74 54 61 73 6b | 48 61 6e 64 6c 65 72 29 |ct(tTask|Handler)|
|000001a0| 0d 09 09 53 74 64 48 61 | 6e 64 6c 65 3a 48 61 6e |...StdHa|ndle:Han|
|000001b0| 64 6c 65 3b 0d 09 66 75 | 6e 63 74 69 6f 6e 20 74 |dle;..fu|nction t|
|000001c0| 4d 61 73 74 65 72 54 61 | 73 6b 48 61 6e 64 6c 65 |MasterTa|skHandle|
|000001d0| 72 2e 4d 73 67 55 73 61 | 62 6c 65 28 76 61 72 20 |r.MsgUsa|ble(var |
|000001e0| 6d 73 67 3a 4d 73 67 50 | 74 72 29 3a 62 6f 6f 6c |msg:MsgP|tr):bool|
|000001f0| 65 61 6e 3b 6f 76 65 72 | 72 69 64 65 3b 09 0d 09 |ean;over|ride;...|
|00000200| 70 72 6f 63 65 64 75 72 | 65 20 74 4d 61 73 74 65 |procedur|e tMaste|
|00000210| 72 54 61 73 6b 48 61 6e | 64 6c 65 72 2e 4d 73 67 |rTaskHan|dler.Msg|
|00000220| 45 76 61 6c 75 61 74 69 | 6f 6e 28 76 61 72 20 6d |Evaluati|on(var m|
|00000230| 73 67 3a 4d 73 67 50 74 | 72 29 3b 6f 76 65 72 72 |sg:MsgPt|r);overr|
|00000240| 69 64 65 3b 0d 09 66 75 | 6e 63 74 69 6f 6e 20 74 |ide;..fu|nction t|
|00000250| 4d 61 73 74 65 72 54 61 | 73 6b 48 61 6e 64 6c 65 |MasterTa|skHandle|
|00000260| 72 2e 4e 65 77 50 72 69 | 6f 50 74 72 28 76 61 72 |r.NewPri|oPtr(var|
|00000270| 20 50 72 69 6f 53 69 7a | 65 3a 6c 6f 6e 67 69 6e | PrioSiz|e:longin|
|00000280| 74 29 3a 70 74 72 3b 6f | 76 65 72 72 69 64 65 3b |t):ptr;o|verride;|
|00000290| 0d 09 66 75 6e 63 74 69 | 6f 6e 20 74 4d 61 73 74 |..functi|on tMast|
|000002a0| 65 72 54 61 73 6b 48 61 | 6e 64 6c 65 72 2e 4e 65 |erTaskHa|ndler.Ne|
|000002b0| 77 43 6f 72 65 50 74 72 | 28 76 61 72 20 43 6f 72 |wCorePtr|(var Cor|
|000002c0| 65 53 69 7a 65 3a 6c 6f | 6e 67 69 6e 74 29 3a 70 |eSize:lo|ngint):p|
|000002d0| 74 72 3b 6f 76 65 72 72 | 69 64 65 3b 0d 09 70 72 |tr;overr|ide;..pr|
|000002e0| 6f 63 65 64 75 72 65 20 | 74 4d 61 73 74 65 72 54 |ocedure |tMasterT|
|000002f0| 61 73 6b 48 61 6e 64 6c | 65 72 2e 44 69 73 70 6f |askHandl|er.Dispo|
|00000300| 73 50 72 69 6f 50 74 72 | 28 76 61 72 20 50 72 69 |sPrioPtr|(var Pri|
|00000310| 6f 50 74 72 3a 55 4e 49 | 56 20 50 74 72 29 3b 6f |oPtr:UNI|V Ptr);o|
|00000320| 76 65 72 72 69 64 65 3b | 0d 09 70 72 6f 63 65 64 |verride;|..proced|
|00000330| 75 72 65 20 74 4d 61 73 | 74 65 72 54 61 73 6b 48 |ure tMas|terTaskH|
|00000340| 61 6e 64 6c 65 72 2e 44 | 69 73 70 6f 73 43 6f 72 |andler.D|isposCor|
|00000350| 65 50 74 72 28 76 61 72 | 20 43 6f 72 65 50 74 72 |ePtr(var| CorePtr|
|00000360| 3a 55 4e 49 56 20 50 74 | 72 29 3b 6f 76 65 72 72 |:UNIV Pt|r);overr|
|00000370| 69 64 65 3b 0d 09 65 6e | 64 3b 0d 0d 66 75 6e 63 |ide;..en|d;..func|
|00000380| 74 69 6f 6e 20 74 4d 61 | 73 74 65 72 54 61 73 6b |tion tMa|sterTask|
|00000390| 48 61 6e 64 6c 65 72 2e | 4d 73 67 55 73 61 62 6c |Handler.|MsgUsabl|
|000003a0| 65 28 76 61 72 20 6d 73 | 67 3a 4d 73 67 50 74 72 |e(var ms|g:MsgPtr|
|000003b0| 29 3a 62 6f 6f 6c 65 61 | 6e 3b 6f 76 65 72 72 69 |):boolea|n;overri|
|000003c0| 64 65 3b 09 0d 62 65 67 | 69 6e 0d 09 4d 73 67 55 |de;..beg|in..MsgU|
|000003d0| 73 61 62 6c 65 3a 3d 66 | 61 6c 73 65 3b 0d 09 77 |sable:=f|alse;..w|
|000003e0| 69 74 68 20 74 4d 73 67 | 48 65 61 64 65 72 50 74 |ith tMsg|HeaderPt|
|000003f0| 72 28 6d 73 67 5e 2e 6d | 73 67 50 72 69 6f 50 74 |r(msg^.m|sgPrioPt|
|00000400| 72 29 5e 20 64 6f 20 62 | 65 67 69 6e 0d 09 09 69 |r)^ do b|egin...i|
|00000410| 66 20 76 65 72 73 69 6f | 6e 3c 3e 63 4d 79 4d 73 |f versio|n<>cMyMs|
|00000420| 67 48 65 61 64 65 72 56 | 65 72 73 69 6f 6e 20 74 |gHeaderV|ersion t|
|00000430| 68 65 6e 20 0d 09 09 50 | 72 6f 67 72 61 6d 42 72 |hen ...P|rogramBr|
|00000440| 65 61 6b 28 27 69 6e 63 | 6f 6e 73 69 73 74 65 6e |eak('inc|onsisten|
|00000450| 74 20 68 65 61 64 65 72 | 20 76 65 72 73 69 6f 6e |t header| version|
|00000460| 2e 20 73 68 6f 75 6c 64 | 20 6e 6f 74 20 68 61 70 |. should| not hap|
|00000470| 70 65 6e 27 29 0d 09 09 | 65 6c 73 65 20 7b 77 65 |pen')...|else {we|
|00000480| 20 6f 6e 6c 79 20 61 63 | 63 65 70 74 20 74 68 65 | only ac|cept the|
|00000490| 20 63 75 72 72 65 6e 74 | 20 76 65 72 73 69 6f 6e | current| version|
|000004a0| 7d 0d 09 09 63 61 73 65 | 20 61 63 74 69 6f 6e 20 |}...case| action |
|000004b0| 6f 66 0d 09 09 09 61 4e | 6f 6f 70 3a 3b 0d 09 09 |of....aN|oop:;...|
|000004c0| 09 61 45 78 61 6d 70 6c | 65 3a 0d 09 09 09 62 65 |.aExampl|e:....be|
|000004d0| 67 69 6e 20 0d 09 09 09 | 09 69 66 20 28 44 69 73 |gin ....|.if (Dis|
|000004e0| 74 72 69 62 75 74 69 6f | 6e 54 6f 6b 65 6e 3d 6c |tributio|nToken=l|
|000004f0| 6f 6e 67 69 6e 74 28 63 | 44 65 66 61 75 6c 74 44 |ongint(c|DefaultD|
|00000500| 69 73 74 72 69 62 75 74 | 69 6f 6e 29 29 20 26 0d |istribut|ion)) &.|
|00000510| 09 09 09 09 28 44 69 73 | 70 6c 61 79 54 6f 6b 65 |....(Dis|playToke|
|00000520| 6e 3d 6c 6f 6e 67 69 6e | 74 28 63 44 65 66 61 75 |n=longin|t(cDefau|
|00000530| 6c 74 44 69 73 70 6c 61 | 79 29 29 20 74 68 65 6e |ltDispla|y)) then|
|00000540| 20 62 65 67 69 6e 0d 09 | 09 09 09 09 77 69 74 68 | begin..|....with|
|00000550| 20 6d 73 67 5e 20 64 6f | 20 62 65 67 69 6e 0d 09 | msg^ do| begin..|
|00000560| 09 09 09 09 09 4d 73 67 | 43 6f 72 65 50 74 72 3a |.....Msg|CorePtr:|
|00000570| 3d 4e 65 77 43 6f 72 65 | 50 74 72 28 4d 73 67 43 |=NewCore|Ptr(MsgC|
|00000580| 6f 72 65 53 69 7a 65 29 | 3b 09 7b 61 6c 6c 6f 63 |oreSize)|;.{alloc|
|00000590| 61 74 65 73 20 61 20 68 | 61 6e 64 6c 65 7d 0d 09 |ates a h|andle}..|
|000005a0| 09 09 09 09 09 53 74 61 | 6d 70 28 6d 73 67 29 3b |.....Sta|mp(msg);|
|000005b0| 20 0d 09 09 09 09 09 09 | 69 66 20 4d 73 67 43 6f | .......|if MsgCo|
|000005c0| 72 65 50 74 72 3c 3e 6e | 69 6c 20 74 68 65 6e 0d |rePtr<>n|il then.|
|000005d0| 09 09 09 09 09 09 4d 73 | 67 55 73 61 62 6c 65 3a |......Ms|gUsable:|
|000005e0| 3d 74 72 75 65 3b 0d 09 | 09 09 09 09 65 6e 64 3b |=true;..|....end;|
|000005f0| 0d 09 09 09 09 65 6e 64 | 3b 0d 09 09 09 65 6e 64 |.....end|;....end|
|00000600| 3b 0d 09 09 09 61 44 6f | 6e 65 3a 09 09 50 72 6f |;....aDo|ne:..Pro|
|00000610| 67 72 61 6d 42 72 65 61 | 6b 28 27 61 44 6f 6e 65 |gramBrea|k('aDone|
|00000620| 20 73 68 6f 75 6c 64 20 | 6e 6f 74 20 68 61 70 70 | should |not happ|
|00000630| 65 6e 27 29 3b 0d 09 09 | 09 61 53 65 74 43 6f 6e |en');...|.aSetCon|
|00000640| 66 69 67 3a 09 50 72 6f | 67 72 61 6d 42 72 65 61 |fig:.Pro|gramBrea|
|00000650| 6b 28 27 61 53 65 74 43 | 6f 6e 66 69 67 20 73 68 |k('aSetC|onfig sh|
|00000660| 6f 75 6c 64 20 6e 6f 74 | 20 68 61 70 70 65 6e 27 |ould not| happen'|
|00000670| 29 3b 0d 09 09 09 6f 74 | 68 65 72 77 69 73 65 0d |);....ot|herwise.|
|00000680| 09 09 65 6e 64 3b 0d 09 | 65 6e 64 3b 7b 77 69 74 |..end;..|end;{wit|
|00000690| 68 7d 0d 65 6e 64 3b 0d | 0d 0d 70 72 6f 63 65 64 |h}.end;.|..proced|
|000006a0| 75 72 65 20 74 4d 61 73 | 74 65 72 54 61 73 6b 48 |ure tMas|terTaskH|
|000006b0| 61 6e 64 6c 65 72 2e 4d | 73 67 45 76 61 6c 75 61 |andler.M|sgEvalua|
|000006c0| 74 69 6f 6e 28 76 61 72 | 20 6d 73 67 3a 4d 73 67 |tion(var| msg:Msg|
|000006d0| 50 74 72 29 3b 0d 76 61 | 72 20 68 3a 68 61 6e 64 |Ptr);.va|r h:hand|
|000006e0| 6c 65 3b 0d 09 6c 3a 6c | 6f 6e 67 69 6e 74 3b 73 |le;..l:l|ongint;s|
|000006f0| 3a 73 74 72 32 35 35 3b | 0d 62 65 67 69 6e 0d 09 |:str255;|.begin..|
|00000700| 77 69 74 68 20 6d 73 67 | 5e 20 64 6f 20 62 65 67 |with msg|^ do beg|
|00000710| 69 6e 0d 09 7b 24 49 46 | 43 20 66 61 6c 73 65 7d |in..{$IF|C false}|
|00000720| 0d 09 09 6c 6f 67 53 74 | 72 69 6e 67 28 27 69 6d |...logSt|ring('im|
|00000730| 6d 65 64 69 61 74 65 20 | 6e 65 77 20 74 61 73 6b |mediate |new task|
|00000740| 27 29 3b 09 7b 74 65 6d | 70 6f 72 61 72 79 20 2d |');.{tem|porary -|
|00000750| 20 77 68 69 6c 65 20 74 | 65 73 74 69 6e 67 20 74 | while t|esting t|
|00000760| 68 65 20 73 63 68 64 75 | 6c 65 72 7d 0d 09 09 4e |he schdu|ler}...N|
|00000770| 65 74 57 6f 72 6b 53 63 | 68 65 64 75 6c 65 72 2e |etWorkSc|heduler.|
|00000780| 44 6f 4e 65 77 54 61 73 | 6b 28 4d 73 67 53 6f 75 |DoNewTas|k(MsgSou|
|00000790| 72 63 65 2c 4d 73 67 54 | 72 70 50 74 72 29 3b 7d |rce,MsgT|rpPtr);}|
|000007a0| 20 7b 6b 65 65 70 20 73 | 65 6e 64 65 72 20 62 75 | {keep s|ender bu|
|000007b0| 73 79 20 2d 2d 20 71 75 | 69 63 6b 20 72 65 70 6c |sy -- qu|ick repl|
|000007c0| 79 7d 0d 09 7b 24 45 4e | 44 43 7d 0d 09 09 09 68 |y}..{$EN|DC}....h|
|000007d0| 3a 3d 52 65 63 6f 76 65 | 72 48 61 6e 64 6c 65 28 |:=Recove|rHandle(|
|000007e0| 6d 73 67 5e 2e 4d 73 67 | 43 6f 72 65 50 74 72 29 |msg^.Msg|CorePtr)|
|000007f0| 3b 0d 09 09 09 69 66 20 | 68 3c 3e 6e 69 6c 20 74 |;....if |h<>nil t|
|00000800| 68 65 6e 20 62 65 67 69 | 6e 0d 09 09 09 68 75 6e |hen begi|n....hun|
|00000810| 6c 6f 63 6b 28 68 29 3b | 0d 09 09 09 6d 73 67 5e |lock(h);|....msg^|
|00000820| 2e 4d 73 67 43 6f 72 65 | 50 74 72 3a 3d 6e 69 6c |.MsgCore|Ptr:=nil|
|00000830| 3b 7b 72 65 63 69 70 69 | 65 6e 74 20 68 61 73 20 |;{recipi|ent has |
|00000840| 74 6f 20 63 6c 65 61 72 | 20 69 74 7d 0d 09 09 09 |to clear| it}....|
|00000850| 74 4d 73 67 48 65 61 64 | 65 72 50 74 72 28 6d 73 |tMsgHead|erPtr(ms|
|00000860| 67 5e 2e 4d 73 67 50 72 | 69 6f 50 74 72 29 5e 2e |g^.MsgPr|ioPtr)^.|
|00000870| 61 63 74 69 6f 6e 3a 3d | 61 53 68 6f 77 3b 0d 09 |action:=|aShow;..|
|00000880| 09 09 69 66 20 50 72 6f | 63 65 73 73 4d 73 67 28 |..if Pro|cessMsg(|
|00000890| 74 4d 73 67 48 65 61 64 | 65 72 50 74 72 28 6d 73 |tMsgHead|erPtr(ms|
|000008a0| 67 5e 2e 4d 73 67 50 72 | 69 6f 50 74 72 29 5e 2c |g^.MsgPr|ioPtr)^,|
|000008b0| 68 2c 66 61 6c 73 65 29 | 3c 3e 6e 6f 65 72 72 20 |h,false)|<>noerr |
|000008c0| 74 68 65 6e 3b 0d 09 09 | 09 65 6e 64 0d 09 09 65 |then;...|.end...e|
|000008d0| 6c 73 65 20 50 72 6f 67 | 72 61 6d 42 72 65 61 6b |lse Prog|ramBreak|
|000008e0| 28 27 63 6f 75 6c 64 20 | 6e 6f 74 20 64 6f 20 72 |('could |not do r|
|000008f0| 65 63 6f 76 65 72 20 68 | 61 6e 64 6c 65 27 29 3b |ecover h|andle');|
|00000900| 0d 09 65 6e 64 3b 7b 77 | 69 74 68 7d 0d 0d 65 6e |..end;{w|ith}..en|
|00000910| 64 3b 0d 0d 0d 66 75 6e | 63 74 69 6f 6e 20 74 4d |d;...fun|ction tM|
|00000920| 61 73 74 65 72 54 61 73 | 6b 48 61 6e 64 6c 65 72 |asterTas|kHandler|
|00000930| 2e 4e 65 77 50 72 69 6f | 50 74 72 28 76 61 72 20 |.NewPrio|Ptr(var |
|00000940| 50 72 69 6f 53 69 7a 65 | 3a 6c 6f 6e 67 69 6e 74 |PrioSize|:longint|
|00000950| 29 3a 70 74 72 3b 6f 76 | 65 72 72 69 64 65 3b 0d |):ptr;ov|erride;.|
|00000960| 76 61 72 20 6d 79 73 69 | 7a 65 3a 6c 6f 6e 67 69 |var mysi|ze:longi|
|00000970| 6e 74 3b 0d 62 65 67 69 | 6e 20 0d 09 69 66 20 50 |nt;.begi|n ..if P|
|00000980| 72 69 6f 53 69 7a 65 3e | 73 69 7a 65 4f 66 28 74 |rioSize>|sizeOf(t|
|00000990| 4d 73 67 48 65 61 64 65 | 72 29 20 74 68 65 6e 20 |MsgHeade|r) then |
|000009a0| 62 65 67 69 6e 20 0d 09 | 09 50 72 69 6f 53 69 7a |begin ..|.PrioSiz|
|000009b0| 65 3a 3d 30 3b 4e 65 77 | 50 72 69 6f 50 74 72 3a |e:=0;New|PrioPtr:|
|000009c0| 3d 6e 69 6c 0d 09 65 6e | 64 20 65 6c 73 65 20 62 |=nil..en|d else b|
|000009d0| 65 67 69 6e 0d 09 09 6d | 79 73 69 7a 65 3a 3d 73 |egin...m|ysize:=s|
|000009e0| 69 7a 65 6f 66 28 74 4d | 73 67 48 65 61 64 65 72 |izeof(tM|sgHeader|
|000009f0| 29 3b 09 7b 72 65 73 65 | 72 76 65 20 73 6f 6d 65 |);.{rese|rve some|
|00000a00| 20 66 69 78 65 64 20 61 | 64 64 69 74 69 6f 6e 61 | fixed a|dditiona|
|00000a10| 6c 20 73 70 61 63 65 20 | 66 6f 72 20 68 61 6e 64 |l space |for hand|
|00000a20| 6c 65 7d 0d 09 09 4e 65 | 77 50 72 69 6f 50 74 72 |le}...Ne|wPrioPtr|
|00000a30| 3a 3d 69 6e 68 65 72 69 | 74 65 64 20 4e 65 77 50 |:=inheri|ted NewP|
|00000a40| 72 69 6f 50 74 72 28 6d | 79 73 69 7a 65 29 3b 0d |rioPtr(m|ysize);.|
|00000a50| 09 65 6e 64 3b 0d 65 6e | 64 3b 0d 0d 66 75 6e 63 |.end;.en|d;..func|
|00000a60| 74 69 6f 6e 20 74 4d 61 | 73 74 65 72 54 61 73 6b |tion tMa|sterTask|
|00000a70| 48 61 6e 64 6c 65 72 2e | 4e 65 77 43 6f 72 65 50 |Handler.|NewCoreP|
|00000a80| 74 72 28 76 61 72 20 43 | 6f 72 65 53 69 7a 65 3a |tr(var C|oreSize:|
|00000a90| 6c 6f 6e 67 69 6e 74 29 | 3a 70 74 72 3b 6f 76 65 |longint)|:ptr;ove|
|00000aa0| 72 72 69 64 65 3b 0d 76 | 61 72 20 68 3a 68 61 6e |rride;.v|ar h:han|
|00000ab0| 64 6c 65 3b 0d 62 65 67 | 69 6e 20 0d 09 69 66 20 |dle;.beg|in ..if |
|00000ac0| 43 6f 72 65 53 69 7a 65 | 3d 30 20 74 68 65 6e 20 |CoreSize|=0 then |
|00000ad0| 4e 65 77 43 6f 72 65 50 | 74 72 3a 3d 6e 69 6c 0d |NewCoreP|tr:=nil.|
|00000ae0| 09 65 6c 73 65 20 62 65 | 67 69 6e 0d 09 09 68 3a |.else be|gin...h:|
|00000af0| 3d 4e 65 77 48 61 6e 64 | 6c 65 28 43 6f 72 65 53 |=NewHand|le(CoreS|
|00000b00| 69 7a 65 29 3b 0d 09 09 | 69 66 20 68 3c 3e 6e 69 |ize);...|if h<>ni|
|00000b10| 6c 20 74 68 65 6e 20 62 | 65 67 69 6e 0d 09 09 09 |l then b|egin....|
|00000b20| 48 6c 6f 63 6b 28 68 29 | 3b 0d 09 09 09 4e 65 77 |Hlock(h)|;....New|
|00000b30| 43 6f 72 65 50 74 72 3a | 3d 68 5e 3b 0d 09 09 65 |CorePtr:|=h^;...e|
|00000b40| 6e 64 20 65 6c 73 65 20 | 62 65 67 69 6e 0d 09 09 |nd else |begin...|
|00000b50| 09 4e 65 77 43 6f 72 65 | 50 74 72 3a 3d 6e 69 6c |.NewCore|Ptr:=nil|
|00000b60| 3b 0d 09 09 09 43 6f 72 | 65 53 69 7a 65 3a 3d 30 |;....Cor|eSize:=0|
|00000b70| 3b 0d 09 09 65 6e 64 3b | 0d 09 65 6e 64 3b 0d 65 |;...end;|..end;.e|
|00000b80| 6e 64 3b 0d 0d 0d 70 72 | 6f 63 65 64 75 72 65 20 |nd;...pr|ocedure |
|00000b90| 74 4d 61 73 74 65 72 54 | 61 73 6b 48 61 6e 64 6c |tMasterT|askHandl|
|00000ba0| 65 72 2e 44 69 73 70 6f | 73 50 72 69 6f 50 74 72 |er.Dispo|sPrioPtr|
|00000bb0| 28 76 61 72 20 50 72 69 | 6f 50 74 72 3a 55 4e 49 |(var Pri|oPtr:UNI|
|00000bc0| 56 20 50 74 72 29 3b 6f | 76 65 72 72 69 64 65 3b |V Ptr);o|verride;|
|00000bd0| 0d 62 65 67 69 6e 0d 09 | 7b 54 6f 20 64 6f 3a 20 |.begin..|{To do: |
|00000be0| 68 61 6e 64 6c 65 20 62 | 61 73 65 64 20 69 6d 70 |handle b|ased imp|
|00000bf0| 6c 65 6d 65 6e 74 61 74 | 69 6f 6e 7d 0d 09 69 6e |lementat|ion}..in|
|00000c00| 68 65 72 69 74 65 64 20 | 44 69 73 70 6f 73 50 72 |herited |DisposPr|
|00000c10| 69 6f 50 74 72 28 50 72 | 69 6f 50 74 72 29 3b 0d |ioPtr(Pr|ioPtr);.|
|00000c20| 65 6e 64 3b 09 09 0d 0d | 70 72 6f 63 65 64 75 72 |end;....|procedur|
|00000c30| 65 20 74 4d 61 73 74 65 | 72 54 61 73 6b 48 61 6e |e tMaste|rTaskHan|
|00000c40| 64 6c 65 72 2e 44 69 73 | 70 6f 73 43 6f 72 65 50 |dler.Dis|posCoreP|
|00000c50| 74 72 28 76 61 72 20 43 | 6f 72 65 50 74 72 3a 55 |tr(var C|orePtr:U|
|00000c60| 4e 49 56 20 50 74 72 29 | 3b 6f 76 65 72 72 69 64 |NIV Ptr)|;overrid|
|00000c70| 65 3b 0d 76 61 72 20 68 | 3a 68 61 6e 64 6c 65 3b |e;.var h|:handle;|
|00000c80| 0d 62 65 67 69 6e 20 0d | 09 69 66 20 43 6f 72 65 |.begin .|.if Core|
|00000c90| 50 74 72 3c 3e 6e 69 6c | 20 74 68 65 6e 20 62 65 |Ptr<>nil| then be|
|00000ca0| 67 69 6e 0d 09 09 68 3a | 3d 52 65 63 6f 76 65 72 |gin...h:|=Recover|
|00000cb0| 48 61 6e 64 6c 65 28 43 | 6f 72 65 50 74 72 29 3b |Handle(C|orePtr);|
|00000cc0| 0d 09 09 69 66 20 68 3d | 6e 69 6c 20 74 68 65 6e |...if h=|nil then|
|00000cd0| 20 64 65 62 75 67 73 74 | 72 28 27 63 6f 75 6c 64 | debugst|r('could|
|00000ce0| 20 6e 6f 74 20 72 65 63 | 6f 76 65 72 20 68 61 6e | not rec|over han|
|00000cf0| 64 6c 65 27 29 0d 09 09 | 65 6c 73 65 20 62 65 67 |dle')...|else beg|
|00000d00| 69 6e 20 48 55 6e 6c 6f | 63 6b 28 68 29 3b 44 69 |in HUnlo|ck(h);Di|
|00000d10| 73 70 6f 73 48 61 6e 64 | 6c 65 28 68 29 3b 65 6e |sposHand|le(h);en|
|00000d20| 64 3b 0d 09 09 43 6f 72 | 65 50 74 72 3a 3d 6e 69 |d;...Cor|ePtr:=ni|
|00000d30| 6c 3b 0d 09 65 6e 64 3b | 0d 65 6e 64 3b 0d 0d 0d |l;..end;|.end;...|
|00000d40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d80| 00 00 01 00 00 00 01 9d | 00 00 00 9d 00 00 00 52 |........|.......R|
|00000d90| 74 72 3c 3e 6e 69 6c 3b | 0d 09 09 09 09 65 6e 64 |tr<>nil;|.....end|
|00000da0| 3b 0d 09 09 09 65 6e 64 | 3b 0d 09 09 09 6f 74 68 |;....end|;....oth|
|00000db0| 12 74 61 73 6b 2e 6d 61 | 73 74 65 72 2e 69 6d 70 |.task.ma|ster.imp|
|00000dc0| 6c 2e 70 2e 02 00 00 00 | 54 45 58 54 4d 50 53 20 |l.p.....|TEXTMPS |
|00000dd0| 00 00 54 45 58 54 4d 50 | 53 20 01 00 01 38 00 40 |..TEXTMP|S ...8.@|
|00000de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000df0| 00 00 a4 86 d0 af 00 00 | 0c c0 00 00 01 ef 6d 73 |........|......ms|
|00000e00| 67 3a 4d 73 67 50 74 72 | 29 3b 0d 76 61 72 20 68 |g:MsgPtr|);.var h|
|00000e10| 3a 68 61 6e 64 6c 65 3b | 0d 09 73 61 66 65 70 6f |:handle;|..safepo|
|00000e20| 72 74 3a 67 72 61 66 70 | 74 72 3b 0d 09 74 65 6d |rt:grafp|tr;..tem|
|00000e30| 70 73 74 72 3a 73 74 72 | 32 35 35 3b 0d 09 6c 3a |pstr:str|255;..l:|
|00000e40| 6c 6f 6e 67 69 6e 74 3b | 73 3a 73 74 72 32 35 35 |longint;|s:str255|
|00000e50| 3b 0d 09 6d 79 48 65 61 | 64 65 72 3a 74 4d 73 67 |;..myHea|der:tMsg|
|00000e60| 48 65 61 64 65 72 3b 0d | 09 72 65 70 6c 79 73 69 |Header;.|.replysi|
|00000e70| 7a 65 3a 6c 6f 6e 67 69 | 6e 74 3b 0d 09 61 6e 79 |ze:longi|nt;..any|
|00000e80| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 2d 2d 2d |...H..Mo|naco.---|
|00000e90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ea0| 2d 2d 2d 2d 2d 2d 00 06 | 00 04 00 2a 00 03 01 dd |------..|...*....|
|00000eb0| 02 7d 00 2a 00 03 00 aa | 02 79 a4 ce 3b a8 00 00 |.}.*....|.y..;...|
|00000ec0| 0b c5 00 00 0b d2 00 00 | 0a 27 01 00 00 00 00 1e |........|.'......|
|00000ed0| 00 2a 00 03 01 dd 02 7d | 00 2a 00 03 00 aa 02 79 |.*.....}|.*.....y|
|00000ee0| 00 00 0a 27 00 00 00 00 | 00 00 00 00 00 00 00 00 |...'....|........|
|00000ef0| 00 2b 01 23 80 00 00 00 | 05 31 2e 32 2e 33 1e 31 |.+.#....|.1.2.3.1|
|00000f00| 2e 32 2e 33 a9 31 39 39 | 31 54 68 65 20 4e 65 74 |.2.3.199|1The Net|
|00000f10| 57 6f 72 6b 20 50 72 6f | 6a 65 63 74 20 00 00 01 |Work Pro|ject ...|
|00000f20| 00 00 00 01 9d 00 00 00 | 9d 00 00 00 52 00 48 3c |........|....R.H<|
|00000f30| 78 08 d2 00 00 00 1c 00 | 52 00 01 4d 50 53 52 00 |x.......|R..MPSR.|
|00000f40| 01 00 12 76 65 72 73 00 | 00 00 2a 03 ed ff ff 00 |...vers.|..*.....|
|00000f50| 00 00 00 00 00 00 00 03 | f0 ff ff 00 00 00 4c 00 |........|......L.|
|00000f60| 00 00 00 00 02 ff ff 20 | 00 00 6e 00 48 39 3c 00 |....... |..n.H9<.|
|00000f70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+